← Index
NYTProf Performance Profile   
For starman worker -M FindBin --max-requests 50 --workers 2 --user=kohadev-koha --group kohadev-koha --pid /var/run/koha/kohadev/plack.pid --daemonize --access-log /var/log/koha/kohadev/plack.log --error-log /var/log/koha/kohadev/plack-error.log -E deployment --socket /var/run/koha/kohadev/plack.sock /etc/koha/sites/kohadev/plack.psgi
  Run on Fri Jan 8 13:01:18 2016
Reported on Fri Jan 8 13:01:36 2016

Filename(eval 1085)[/usr/share/perl5/Sub/Quote.pm:5]
StatementsExecuted 25 statements in 420µs
Eval Invoked At/usr/share/perl5/Sub/Quote.pm line 5
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
32241µs1.09msMethod::Generate::Constructor::::newMethod::Generate::Constructor::new
11112µs27µsSub::Quote::::BEGIN@4.2910 Sub::Quote::BEGIN@4.2910
1116µs6µsMethod::Generate::Constructor::::BEGIN@10Method::Generate::Constructor::BEGIN@10
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1{
221µs my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
31200ns my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
42100µs242µs
# spent 27µs (12+14) within Sub::Quote::BEGIN@4.2910 which was called: # once (12µs+14µs) by Sub::Quote::_clean_eval at line 4
no warnings 'closure';
# spent 27µs making 1 call to Sub::Quote::BEGIN@4.2910 # spent 14µs making 1 call to warnings::unimport
5
# spent 1.09ms (41µs+1.05) within Method::Generate::Constructor::new which was called 3 times, avg 364µs/call: # 2 times (13µs+1.04ms) by Moo::_constructor_maker_for at line 201 of Moo.pm, avg 526µs/call # once (28µs+14µs) by Moo::_constructor_maker_for at line 56 of Sub/Defer.pm
sub Method::Generate::Constructor::new {
6 $_QUOTED if 0;
710s $_UNQUOTED if 0;
8# BEGIN quote_sub PRELUDE
9package Method::Generate::Constructor;
10
# spent 6µs within Method::Generate::Constructor::BEGIN@10 which was called: # once (6µs+0s) by Sub::Quote::_clean_eval at line 15
BEGIN {
1111µs $^H = "2018";
121500ns ${^WARNING_BITS} = "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377";
1319µs %^H = (
14 );
151273µs16µs}
# spent 6µs making 1 call to Method::Generate::Constructor::BEGIN@10
16# END quote_sub PRELUDE
171400ns my $class = shift;
181100ns $class = ref($class) if ref($class);
191200ns if ($class ne "Method::Generate::Constructor") {
20 if ($Moo::MAKERS{$class}) {
21 if ($Moo::MAKERS{$class}{constructor}) {
22 return $class->Method::Generate::Constructor::SUPER::new(@_);
23 }
24 Moo->_constructor_maker_for($class);
25 return $class->new(@_);
26 } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
27 return $meta->new_object(
28 $class->can("BUILDARGS") ? $class->BUILDARGS(@_)
29 : $class->Moo::Object::BUILDARGS(@_)
30 );
31 }
32 }
331100ns my $args;
341800ns if ( scalar @_ == 1 ) {
35 unless ( defined $_[0] && ref $_[0] eq 'HASH' ) {
36 die "Single parameters to new() must be a HASH ref"
37 ." data => ". $_[0] ."\n";
38 }
39 $args = { %{ $_[0] } };
40 }
41 elsif ( @_ % 2 ) {
42 die "The new() method for $class expects a hash reference or a"
43 . " key/value list. You passed an odd number of arguments\n";
44 }
45 else {
4612µs $args = {@_};
47 }
48118µs112µs my $new = $class->next::method(@_);
# spent 12µs making 1 call to next::method
4913µs if (exists $args->{"accessor_generator"}) {
50 $new->{"accessor_generator"} = $args->{"accessor_generator"};
51 }
521200ns if (exists $args->{"attribute_specs"}) {
53 $new->{"attribute_specs"} = $args->{"attribute_specs"};
54 }
551200ns if (exists $args->{"construction_builder"}) {
56 $new->{"construction_builder"} = $args->{"construction_builder"};
57 }
581200ns if (exists $args->{"construction_string"}) {
59 $new->{"construction_string"} = $args->{"construction_string"};
60 }
611500ns if (exists $args->{"package"}) {
62 $new->{"package"} = $args->{"package"};
63 }
641600ns if (exists $args->{"subconstructor_handler"}) {
65 $new->{"subconstructor_handler"} = $args->{"subconstructor_handler"};
66 }
6713µs return $new;
68 }
6911µs $$_UNQUOTED = \&Method::Generate::Constructor::new
70}
7114µs1;
72
73;